home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / ffccc / INLINE.f < prev    next >
Encoding:
Text File  |  1992-07-31  |  1.4 KB  |  52 lines
  1.       SUBROUTINE INLINE(IUNIT,STRING,EOFFLG,NTYP)   
  2. *-----------------------------------------------------------------------
  3. *   
  4. *--- reads one line from input  
  5. *   
  6. *--- input  
  7. *    IUNIT       logical unit number
  8. *--- output 
  9. *    STRING      line read (up to MXLINE characters)
  10. *    EOFFLG      TRUE when end of file  
  11. *    NTYP        type if line : 0 comment line  
  12. *                               1 start of statement
  13. *                               2 contination line  
  14. *   
  15. *-----------------------------------------------------------------------
  16.       include 'PARAM.h' 
  17.       CHARACTER STRING*(MXLINE),STEMP*1 
  18.       LOGICAL EOFFLG
  19.       include 'CONVEX.h' 
  20.       EOFFLG=.FALSE.
  21.       READ (IUNIT,'(A)',END=40) STRING  
  22.       DO 10 I=1,72  
  23.          IF (STRING(I:I).NE.' ') GOTO 20
  24.    10 CONTINUE  
  25. *--- all blank = comment
  26.       NTYP=0
  27.       GOTO 999  
  28.    20 CONTINUE  
  29. *--- check for comment  
  30.       IF(I.LE.6)  THEN  
  31.          DO 30 J=I,5
  32.             STEMP=STRING(J:J)   
  33.             IF (.NOT.(STEMP.EQ.' '.OR.NUMCH(STEMP))) THEN   
  34.                NTYP=0   
  35.                GOTO 999 
  36.             ENDIF   
  37.    30    CONTINUE   
  38. *--- not a comment line - check for continuation
  39.          STEMP=STRING(6:6)  
  40.          IF (STEMP.EQ.' '.OR.STEMP.EQ.'0')  THEN
  41.             NTYP=1  
  42.          ELSE   
  43.             NTYP=2  
  44.          ENDIF  
  45.       ELSE  
  46.          NTYP=1 
  47.       ENDIF 
  48.       GOTO 999  
  49.    40 CONTINUE  
  50.       EOFFLG=.TRUE. 
  51.   999 END   
  52.